﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<!--#include file="conn.asp"-->
<%	
select case v
case "0"
we0="<br/>"
%>
<card id="main" title="生日密码"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>生日密码</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
%>
<%=we%>您想知道您在这一天出生会有什么样的将来吗？用这个测测吧。包括健康、爱情、事业、优点、缺点、同日出生的世界名人等信息。<%=we0%><%=dao%>=生日密码占卜结果=<%=we0%><%=we%>
<%
yue=cint(Request("yue"))
ri=cint(Request("ri"))

set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from shengri where yue="&yue&" and ri="&ri&""
rs.Open rs.Source,Connnn,1,1
zhe=rs("zhe")
Content=rs("Content")
rs.close
set rs=nothing

Response.Write yue&"月"&ri&"日"&" "&zhe&"<br/><br/>"&Content
%>
<%=we0%><%=sou%>

----------<%=we0%><%=we%>
<%
Response.Write("<a href='index.asp?sid=" & sidd & "'>返回上级</a>")
Response.Write we0
end Function
%>